home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / agavb25.zip / VB.ZIP / GFLOAT.FRM < prev    next >
Text File  |  1995-11-10  |  4KB  |  121 lines
  1. VERSION 2.00
  2. Begin Form FloatDemo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Float Properties Demonstration"
  6.    ClientHeight    =   3810
  7.    ClientLeft      =   1725
  8.    ClientTop       =   1485
  9.    ClientWidth     =   6045
  10.    Height          =   4215
  11.    Left            =   1665
  12.    LinkTopic       =   "Form1"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   3810
  15.    ScaleWidth      =   6045
  16.    Top             =   1140
  17.    Width           =   6165
  18.    Begin Frame Frame1 
  19.       BackColor       =   &H00C0C0C0&
  20.       Caption         =   "Float Properties"
  21.       Height          =   870
  22.       Left            =   3840
  23.       TabIndex        =   1
  24.       Top             =   195
  25.       Width           =   2025
  26.       Begin CheckBox Check1 
  27.          BackColor       =   &H00C0C0C0&
  28.          Caption         =   "AnnularFloat"
  29.          Height          =   285
  30.          Index           =   1
  31.          Left            =   180
  32.          TabIndex        =   3
  33.          Top             =   465
  34.          Value           =   1  'Checked
  35.          Width           =   1485
  36.       End
  37.       Begin CheckBox Check1 
  38.          BackColor       =   &H00C0C0C0&
  39.          Caption         =   "TicFloat"
  40.          Height          =   285
  41.          Index           =   0
  42.          Left            =   180
  43.          TabIndex        =   2
  44.          Top             =   225
  45.          Value           =   1  'Checked
  46.          Width           =   1185
  47.       End
  48.    End
  49.    Begin AGAUGE Gauge1 
  50.       Angle           =   0
  51.       AutoRedraw      =   -1  'True
  52.       AVersion        =   2.5
  53.       BackgroundColor =   &H00C0C0C0&
  54.       BevelInner      =   1  ' 1 - Raised
  55.       BevelOuter      =   2  ' 2 - Inset
  56.       BevelWidth      =   2
  57.       BorderType      =   2  ' 2 - Outline
  58.       BorderWidth     =   2
  59.       FontBold        =   -1  'True
  60.       FontID          =   0
  61.       FontItalic      =   0   'False
  62.       FontName        =   "MS Sans Serif"
  63.       FontSize        =   8.25
  64.       FontStrikethru  =   0   'False
  65.       FontUnderline   =   0   'False
  66.       FrameColor      =   &H00000000&
  67.       FrameScaleX     =   0
  68.       FrameScaleY     =   0
  69.       FrameStyle      =   0  ' 0 - None
  70.       Height          =   3600
  71.       Left            =   75
  72.       MouseControl    =   -1  'True
  73.       OutlineAlign    =   0  ' 0 - Left 
  74.       OutlineColor    =   &H00404080&
  75.       OutlineTitle    =   "Float Properties Demonstration"
  76.       OutlineWidth    =   4
  77.       Radius          =   0
  78.       Shape           =   ""
  79.       TabIndex        =   0
  80.       Top             =   45
  81.       Value           =   0
  82.       Width           =   3780
  83.       XScale          =   0
  84.       YScale          =   0
  85.       ZLoad           =   GFLOAT.FRX:0000
  86.    End
  87. End
  88.  
  89. Sub Check1_Click (Index As Integer)
  90.  
  91.     gauge1.TicFloat = check1(0)
  92.     gauge1.AnnularFloat = check1(1)
  93.  
  94. End Sub
  95.  
  96. Sub Form_Load ()
  97.  
  98.     gauge1.TicID = 0
  99.     gauge1.TicFloat = True
  100.     gauge1.TicID = 1
  101.     gauge1.TicFloat = True
  102.     gauge1.TicID = 0
  103.  
  104. End Sub
  105.  
  106. Sub Gauge1_Turn ()
  107.  
  108.     If gauge1.NeedleValue >= 360 Then gauge1.NeedleValue = gauge1.NeedleValue - 360
  109.     
  110.     gauge1.TicID = 0
  111.     gauge1.TicFloatOffset = gauge1.NeedleValue
  112.     gauge1.TicID = 1
  113.     gauge1.TicFloatOffset = gauge1.NeedleValue
  114.     gauge1.AnnularID = 2
  115.     gauge1.AnnularFloatOffset = gauge1.NeedleValue
  116.     gauge1.AnnularID = 3
  117.     gauge1.AnnularFloatOffset = gauge1.NeedleValue
  118.  
  119. End Sub
  120.  
  121.